#! /bin/sh


suplane len1=32 len2=32 len3=32 | sufilter > junk1.su

suxwigb < junk1.su wbox=350 hbox=450 title="Original data"  &

sumedian < junk1.su par=parfile1 median=1 |
suxwigb wbox=350 hbox=450 xbox=550 title="Remove steepest sloping event" &
sumedian < junk1.su par=parfile2 median=1 |
suxwigb wbox=350 hbox=450 ybox=550 title="Remove intermediate sloping event"  &
sumedian < junk1.su par=parfile3 median=1 |
suxwigb wbox=350 hbox=450 xbox=550 ybox=550 title="Remove horizontal event"  &
sumedian < junk1.su par=parfile4 median=1 |
suxwigb wbox=350 hbox=450 xbox=250 ybox=250 title="Remove first arrivals"  &

